home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Utility / Date.i next >
Encoding:
Text File  |  1994-04-15  |  438 b   |  28 lines
  1. { Date.i }
  2.  
  3. {$I   "Include:Exec/Types.i"}
  4.  
  5. Type
  6.       ClockData = Record
  7.         sec,
  8.         min,
  9.         hour,
  10.         mday,
  11.         month,
  12.         year,
  13.         wday : Short;
  14.       END;
  15.       ClockDataPtr = ^ClockData;
  16.  
  17.  
  18. PROCEDURE Amiga2Date(AmigaTime : Integer; VAR Date : ClockDataPtr);
  19.     External;
  20.  
  21. FUNCTION CheckDate(date : ClockDataPtr) : Integer;
  22.     External;
  23.  
  24. FUNCTION Date2Amiga(Date : ClockData) : Integer;
  25.     External;
  26.  
  27.  
  28.